﻿Public Class UsuarioEntity
    Inherits EntityBase

    Public Sub New()

    End Sub

    Public Sub New(ByVal nombre As String, ByVal apellido As String, ByVal fecha As Date, ByVal rol As RolEntity, ByVal login As String, ByVal password As String, ByVal email As String)
        Me.Nombre = nombre
        Me.Apellido = apellido
        Me.FechaAlta = fecha
        Me.RolID = rol
        Me.Login = login
        Me.Password = password
        Me.Email = email
    End Sub

    Private _nombre As String
    Public Property Nombre() As String
        Get
            Return _nombre
        End Get
        Set(ByVal value As String)
            _nombre = value
        End Set
    End Property

    Private _apellido As String
    Public Property Apellido() As String
        Get
            Return _apellido
        End Get
        Set(ByVal value As String)
            _apellido = value
        End Set
    End Property

    Private _fechaAlta As Date
    Public Property FechaAlta() As Date
        Get
            Return _fechaAlta
        End Get
        Set(ByVal value As Date)
            _fechaAlta = value
        End Set
    End Property

    Private _rol As RolEntity
    Public Property RolID() As RolEntity
        Get
            Return _rol
        End Get
        Set(ByVal value As RolEntity)
            _rol = value
        End Set
    End Property

    Private _login As String
    Public Property Login() As String
        Get
            Return _login
        End Get
        Set(ByVal value As String)
            _login = value
        End Set
    End Property

    Private _password As String
    Public Property Password() As String
        Get
            Return _password
        End Get
        Set(ByVal value As String)
            _password = value
        End Set
    End Property

    Private _email As String
    Public Property Email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return Me.Nombre + " " + Me.Apellido
    End Function
End Class
